home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MacApp Documentation / MacApp AppleLink Messages / MacApp.Tech$ 3⁄16⁄90 / 0876-Re Scrollers and Fra-Mar90 < prev    next >
Encoding:
Text File  |  1990-03-16  |  1.2 KB  |  39 lines  |  [TEXT/GEOL]
  1. Item    5544772                         12-March-90        21:09PST
  2.  
  3. From:   D0416                           Futuresoft System Design,PRT
  4.  
  5. To:     MADA2                           MacApp Dev Assoc, Curtis Faith,IVC
  6.  
  7. cc:     MACAPP.TECH$                    MacApp Technical
  8.  
  9. Sub:    RE-Scrollers and Framing
  10.  
  11. Curtis,
  12.  
  13. Thanks for your link about scrollers and framing. I ran into the same problems
  14. and put finding the solution on the back burner. (That back burner is getting a
  15. little crowded) Now with your link I can get rid of that one. Thanks again.
  16.  
  17. Do you see a problem in replacing your lines at the beginning of
  18. TMyScroller.DrawContents:
  19.  
  20.     location := fLocation;
  21.     qdLocation := ViewToQDPt(location);
  22.     itsExtent.topLeft := gZeroVPt;
  23.     itsExtent.botRight := fSize;
  24.     VRectToRect(itsExtent, qdRect);
  25.     PenNormal;
  26.     OffsetRect(qdRect, qdLocation.h, qdLocation.v);
  27.  
  28. with:
  29.  
  30.     GetFrame(itsExtent);        {a TView method}
  31.     VRectToRect(itsExtent, qdRect);
  32.     PenNormal;
  33.  
  34. It looks like it would work, even in a TScroller class. Of course I would
  35. rename the variable itsExtent to itsFrame for readability.
  36.  
  37. -Ken (stoking the back burner) Addison
  38.  
  39.